home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / dialog / demo3d / form2.frm < prev    next >
Text File  |  1995-03-24  |  3KB  |  124 lines
  1. VERSION 2.00
  2. Begin Form Form2 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "CTL3D Dialog Box.."
  5.    ClientHeight    =   3276
  6.    ClientLeft      =   1140
  7.    ClientTop       =   1728
  8.    ClientWidth     =   7440
  9.    Height          =   3696
  10.    Left            =   1092
  11.    LinkTopic       =   "Form2"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   3276
  15.    ScaleWidth      =   7440
  16.    Top             =   1356
  17.    Width           =   7536
  18.    Begin ComboBox Combo1 
  19.       Height          =   288
  20.       Left            =   2232
  21.       TabIndex        =   6
  22.       Text            =   "Combo1"
  23.       Top             =   1080
  24.       Width           =   2532
  25.    End
  26.    Begin DirListBox Dir1 
  27.       Height          =   672
  28.       Left            =   5184
  29.       TabIndex        =   5
  30.       Top             =   648
  31.       Width           =   1956
  32.    End
  33.    Begin DriveListBox Drive1 
  34.       Height          =   288
  35.       Left            =   5184
  36.       TabIndex        =   4
  37.       Top             =   2232
  38.       Width           =   1956
  39.    End
  40.    Begin FileListBox File1 
  41.       Height          =   600
  42.       Left            =   5184
  43.       TabIndex        =   3
  44.       Top             =   1440
  45.       Width           =   1956
  46.    End
  47.    Begin ListBox List1 
  48.       Height          =   792
  49.       Left            =   216
  50.       TabIndex        =   2
  51.       Top             =   864
  52.       Width           =   1380
  53.    End
  54.    Begin CommandButton Command1 
  55.       Caption         =   "OK"
  56.       Height          =   300
  57.       Left            =   3312
  58.       TabIndex        =   1
  59.       Top             =   2880
  60.       Width           =   804
  61.    End
  62.    Begin TextBox Text1 
  63.       Height          =   288
  64.       Left            =   216
  65.       TabIndex        =   0
  66.       Text            =   "Text1"
  67.       Top             =   216
  68.       Width           =   7068
  69.    End
  70.    Begin Line Line1 
  71.       X1              =   144
  72.       X2              =   7272
  73.       Y1              =   2736
  74.       Y2              =   2736
  75.    End
  76.    Begin Label Label1 
  77.       BackStyle       =   0  'Transparent
  78.       Caption         =   "These are just some samples.."
  79.       Height          =   300
  80.       Left            =   288
  81.       TabIndex        =   7
  82.       Top             =   1728
  83.       Width           =   4044
  84.    End
  85. End
  86. Option Explicit
  87.  
  88. Sub Command1_Click ()
  89.  
  90. Unload Me
  91.  
  92. End Sub
  93.  
  94. Sub Form_Load ()
  95.  
  96. 'this form is going to be a 3D Dialog box...
  97. 'first register me...
  98. Dlg3DRegister Me
  99. 'Make me a 3D dialog
  100. DlgIn3D Me
  101. 'Now fix my menu
  102. DlgSysMenu Me
  103. 'Center me on the screen.
  104. CenterForm Me
  105.  
  106.  
  107. End Sub
  108.  
  109. Sub Form_Paint ()
  110.  
  111. 'Here, make all of my controls 3D
  112. FormIn3D Me, 1
  113.  
  114.  
  115. End Sub
  116.  
  117. Sub Form_Unload (Cancel As Integer)
  118.  
  119. 'We are now finished, so unregister me and
  120. Dlg3DUnregister Me
  121.  
  122. End Sub
  123.  
  124.